﻿Public Class frmTraCuuSachTheoNhieuTieuChi

    Private Sub TaoNamXuatBan()
        Dim namHienTai As Integer = Integer.Parse(Date.Now.Year())
        For i As Integer = 2000 To namHienTai
            cboNamXuatBanTu.Items.Add(i.ToString())
            cboNamXuatBanDen.Items.Add(i.ToString())
        Next
    End Sub

    Private Sub frmTraCuuSachTheoNhieuTieuChi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TaoNamXuatBan()
    End Sub

    Private Sub btnTraCuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTraCuu.Click
        MessageBox.Show(cboNamXuatBanTu.Text)
    End Sub
End Class